home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 1998 #6 / 1998 CD 6 (Gul).iso / 02.dir / 00680.ls < prev    next >
Encoding:
Text File  |  1996-02-08  |  2.5 KB  |  82 lines
  1. on init26B
  2.   init(10, 1)
  3.   init(3, 1)
  4.   initGrid()
  5. end
  6.  
  7. on dragMe whichSprite
  8.   set mouseLoc to the mouseH & "," & the mouseV
  9.   set OffsetL to integer(abs(item 1 of mouseLoc - the left of sprite whichSprite))
  10.   set OffsetT to integer(abs(item 2 of mouseLoc - the top of sprite whichSprite))
  11.   set OffsetR to integer(abs(item 1 of mouseLoc - the right of sprite whichSprite))
  12.   set OffsetB to integer(abs(item 2 of mouseLoc - the bottom of sprite whichSprite))
  13.   repeat while the stillDown
  14.     spriteBox(value(whichSprite), value(the mouseH - OffsetL), value(the mouseV - OffsetT), value(the mouseH + OffsetR), value(the mouseV + OffsetB))
  15.     dentGrid(whichSprite)
  16.     updateStage()
  17.   end repeat
  18. end
  19.  
  20. on init x, TRUEorFALSE
  21.   puppetSprite(x, TRUEorFALSE)
  22.   set the immediate of sprite x to TRUEorFALSE
  23. end
  24.  
  25. on initGrid
  26.   global gAmtN, gAmtS, gAmtE, gAmtW, gProx, gCurrRow, gCurrCol, gLastH, gLastV, gGridCols, gGridRows
  27.   set gGridCols to 9
  28.   set gGridRows to 9
  29.   set gProx to 0
  30.   set gCurrRow to 4
  31.   set gCurrCol to 6
  32.   set gLastH to integer(item gCurrCol + 1 of line gCurrRow of field "locTable")
  33.   set gLastV to integer(item 1 of line gCurrRow of field "locTable")
  34.   set the locH of sprite 10 to gLastH
  35.   set the locV of sprite 10 to gLastV
  36.   updateStage()
  37. end
  38.  
  39. on dentGrid whichSprite
  40.   global gAmtN, gAmtS, gAmtE, gAmtW, gProx, gCurrRow, gCurrCol, gLastH, gLastV, gGridCols, gGridRows
  41.   set nextH to the locH of sprite whichSprite
  42.   set nextV to the locV of sprite whichSprite
  43.   set gAmtN to integer(item 1 of line gCurrRow + 1 of field "locTable")
  44.   set gAmtS to integer(item 1 of line gCurrRow - 1 of field "locTable")
  45.   set gAmtE to integer(item gCurrCol + 2 of line gCurrRow of field "locTable")
  46.   set gAmtW to integer(item gCurrCol of line gCurrRow of field "locTable")
  47.   if nextH >= (gAmtE - gProx) then
  48.     if gCurrCol = gGridCols then
  49.       nothing()
  50.     else
  51.       set lastH to gAmtE
  52.       set gCurrCol to gCurrCol + 1
  53.     end if
  54.   end if
  55.   if nextH <= (gAmtW + gProx) then
  56.     if gCurrCol = 1 then
  57.       nothing()
  58.     else
  59.       set lastH to gAmtW
  60.       set gCurrCol to gCurrCol - 1
  61.     end if
  62.   end if
  63.   if nextV <= (gAmtN + gProx) then
  64.     if gCurrRow = gGridRows then
  65.       nothing()
  66.     else
  67.       set lastV to gAmtN
  68.       set gCurrRow to gCurrRow + 1
  69.     end if
  70.   end if
  71.   if nextV >= (gAmtS - gProx) then
  72.     if gCurrRow = 1 then
  73.       nothing()
  74.     else
  75.       set lastV to gAmtS
  76.       set gCurrRow to gCurrRow - 1
  77.     end if
  78.   end if
  79.   set the castNum of sprite 3 to the number of cast "nullCast" + ((gCurrRow - 1) * gGridCols) + gCurrCol
  80.   updateStage()
  81. end
  82.